home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed7.d64 / jim's jotto 1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  204 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,0:POKEUX,0
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  31. 310 REM PROJECT DIRECTOR: FRANK WINTER
  32. 320 REM PROGRAM NAME: JOTTO
  33. 330 REM WRITTEN BY JIM BUTTERFIELD
  34. 340 REM REVISED BY JAN SAWCZAK
  35. 350 REM MODIFIED BY ROBERT EGGLETON
  36. 360 REM UPDATED BY BILL CUMBERLAND
  37. 400 PRINT"[147]":POKEUT,UL%:POKEUY,11:POKEUX,11
  38. 405 PRINT"            [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  39. 406 [153]" MID$OTTO IS SIMILAR TO (null)ASTERMIND."
  40. 408 [153]" RIGHT$NSTEAD OF PEGS OF DIFFERENT COLOURS,"
  41. 410 [153]" HOWEVER, YOU ARE ASKED TO DEDUCE"
  42. 412 [153]" THE LETTERS OF A FIVE LETTER WORD."
  43. 415 [141]835
  44. 416 [153]"LOADOPEN VALACH GUESS IS FOLLOWED BY A HINT.
  45. 418 PRINT" [212]HE COMPUTER WILL TELL HOW MANY "
  46. 420 PRINT" JOTS  THE  GUESS  MAKES  -  EACH  "
  47. 422 PRINT" JOT CORRESPONDS TO A CORRECT LETTER
  48. 424 [153]" WHICH MAY OR MAY NOT BE IN THE
  49. 426 PRINT" CORRECT POSITION IN YOUR GUESS."
  50. 427 PRINT" [201]F YOU MAKE A GUESS THAT ISN'T  5 "
  51. 428 PRINT" LETTERS LONG, THE NUMBER OF JOTS IS     0 BY DEFAULT."
  52. 429 GOSUB835
  53. 430 PRINT"[147][159] [212]HE TRICK IS TO VARY YOUR GUESSES
  54. 432 [153]" SLIGHTLY, ONE FROM THE NEXT.
  55. 434 PRINT" [217]OU ARE ALLOWED 30 GUESSES AT THE       WORD."
  56. 436 PRINT" [201]F YOU ARE IMPATIENT, YOU CAN SEE "
  57. 438 PRINT" THE ANSWER BY ENTERING ?????[146]            FOR YOUR GUESS.
  58. 442 [141]791:[153]"              CHR$OOD (null)UCK !
  59. 495 GOSUB835:RETURN
  60. 700 REM <YES>
  61. 705 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  62. 710 POKE54296,15:POKE54277,42:POKE54278,250
  63. 715 POKE54276,23:POKE54273,23:POKE54272,191
  64. 720 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  65. 725 POKE54296,0:RETURN
  66. 730 REM <NO>
  67. 735 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  68. 740 POKE54296,15:POKE54277,18:POKE54278,242
  69. 745 POKE54276,33:POKE54273,4:POKE54272,48
  70. 750 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  71. 755 POKE54296,0:RETURN
  72. 760 REM <BLIP>
  73. 765 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  74. 770 POKE54296,5:POKE54277,42:POKE54278,250
  75. 775 POKE54276,23:POKE54273,23:POKE54272,191
  76. 780 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  77. 785 POKE54296,0:RETURN
  78. 790 FORTM=1TO500:NEXT:RETURN
  79. 791 FORTM=1TO1000:NEXT:RETURN
  80. 792 FORTM=1TO2000:NEXT:RETURN
  81. 793 FORTM=1TO3000:NEXT:RETURN
  82. 795 FORTM=1TO5000:NEXT:RETURN
  83. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
  84. 801 PRINT"      A TPUG EDUCATIONAL PROGRAM
  85. 802 [153]"           FOR C64 COMPUTERS":[141]791
  86. 803 [153]"                                        WAIT";
  87. 804 [153]"                                        WAIT";
  88. 805 [153]"                                        WAIT";
  89. 806 [153]"             JIM'S JOTTO 1              WAIT";
  90. 807 [153]"                                        WAIT";
  91. 808 [153]"OPEN                                        WAIT";
  92. 809 [153]"                                        WAIT":[141]791:[141]760
  93. 810 [153]"         INSTRUCTIONS?  Y/N
  94. 811 GETR$:IFR$<>"Y"ANDR$<>"N"THEN811
  95. 812 IFR$="Y"THENGOSUB400
  96. 813 PRINT"[147] AND AWAY WE GO.............":GOSUB791:GOSUB700:GOSUB790
  97. 814 GOTO1000
  98. 835 GOSUB791:GOSUB760
  99. 837 POKEUN,0:PRINTLEFT$(UD$,24);"[153] [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE [146][155]"
  100. 840 GETUI$:IFUI$<>" "THEN840
  101. 845 RETURN
  102. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  103. 855 PRINT" --------------------------------------"
  104. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEM PRESS [210][197][212][213][210][206][146]"
  105. 865 UH=0:PRINT"":RETURN
  106. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  107. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  108. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  109. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  110. 905 UD$="":UP$="                                      "
  111. 906 DIM N$(50),Z(5),Y(5),AN$(50),AN(50)
  112. 909 RETURN
  113. 910 GOSUB900:PRINT"[147] "
  114. 920 GOTO800
  115. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
  116. 1100 UT$=" [202]OTTO":UG$="":UH=0
  117. 1200 POKE UT,UL%
  118. 1220 DATA BXBSF,IPCCZ,DBDIF,ESFBE,PGGBM
  119. 1230 DATA HPSHF,IBUDI,DJWJM,KPMMZ,LBZBL
  120. 1240 DATA SBKBI,MFWFM,NJNJD,BOOFY,QJQFS
  121. 1250 DATA RVFTU,SJWFS,QSFTT,PUUFS,FWFOU
  122. 1260 DATA XFBWF,FYUPM,NVTIZ,AFCSB,GJAAZ
  123. 1270 DATA UIJDL,ESVOL,GMPPE,UJHFS,GBLFS
  124. 1280 DATA CPPUI,MZJOH,TRVBU,HBVAF,PXJOH
  125. 1290 DATA UISFF,TJHIU,BYMFT,HSVNQ,BSFOB
  126. 1300 DATA RVBSU,DSFFQ,CFMDI,QSFTT,TQBSL
  127. 1310 DATA SBEBS,SVSBM,TNFMM,GSPXO,ESJGU
  128. 1320 N=50
  129. 1325 IF HC<>0 THEN 1350
  130. 1330 RESTORE
  131. 1340 FOR J=1TON:READN$(J):NEXTJ
  132. 1350 T=TI
  133. 1360 T=T/1000:IFT>=1THENGOTO1360
  134. 1370 Z=RND(-T)
  135. 1380 G=0:N$=N$(RND(1)*N+1)
  136. 1435 US$="?ABCDEFGHIJKLMNOPQRSTUVWXYZ":UL=5
  137. 1440 PRINTCHR$(7);:PRINT"[145]"
  138. 1442 UP=G:UG$="[199]UESS":GOSUB 850
  139. 1443 GOSUB 3000
  140. 1444 G=G+1:IFG>50THEN3500
  141. 1445 GOSUB760:PRINT"[145]  [217]OUR WORD: ";:GOSUB35:Z$=UR$:AN$(G)=UR$
  142. 1446 IFZ$="?????"THEN3500
  143. 1450 IFLEN(Z$)<>5THENPRINT"  [217]OU MUST GUESS A 5-LETTER WORD!":GOSUB730
  144. 1455 IFLEN(Z$)<>5THENGOSUB835:GOTO1600
  145. 1460 V=0:H=0:M=0
  146. 1470 FORJ=1TO5
  147. 1480 Z=ASC(MID$(Z$,J,1)):Y=ASC(MID$(N$,J,1))-1:IFY=64THENY=90
  148. 1490 IFZ<65ORZ>90THENPRINT"  [212]HAT'S NOT A WORD!":GOSUB730:GOSUB835:GOTO1600
  149. 1500 IFZ=65ORZ=69ORZ=73ORZ=79ORZ=85ORZ=89THENV=V+1
  150. 1510 IFZ=YTHENM=M+1
  151. 1520 Z(J)=Z:Y(J)=Y:NEXTJ
  152. 1530 IFM=5GOTO1640
  153. 1535 IFV=0ORV=5THENGOSUB 2500
  154. 1540 IFV=0ORV=5THENPRINT"[150]  [215]HAT KIND OF A WORD IS THAT ?[145][145][155]":GOSUB730
  155. 1545 IFV=0ORV=5THENGOSUB 2500
  156. 1550 FOR J=1TO5:Y=Y(J)
  157. 1560 FOR K=1TO5:IFY=Z(K)THENH=H+1:Z(K)=0:GOTO1580
  158. 1570 NEXT K
  159. 1580 NEXT J
  160. 1590 PRINT"[145]"MID$(STR$(H),2)" [202]OT[146]";:AN(G)=H
  161. 1591 IFH>1THENPRINT"S[146]";
  162. 1592 PRINT".[146]"
  163. 1595 GOSUB 835
  164. 1600 IFG<30GOTO1440
  165. 1609 FOR I=1TO10:PRINTCHR$(7);:NEXTI:PRINT"[145][145][145][145][145][145][145][145][145][145]"
  166. 1610 PRINT"  [201]'D BETTER TELL YOU.. WORD WAS":PRINT"  ";
  167. 1620 GOSUB3505:GOTO1650
  168. 1640 PRINT"[158] [217]OU GOT IT IN ONLY";G;"GUESSES.[155]":GOSUB700:GOSUB760:GOSUB760
  169. 1650 GOSUB2000:GOSUB835:UG$=""
  170. 1655 PRINT"[154][147] [217]OU HAVE A CHOICE:
  171. 1656 [153]" (null)RESS  (null) WAIT FOR ANOTHER GAME
  172. 1657 PRINT" [208]RESS  [205] [146] TO RETURN TO THE MENU"
  173. 1658 GETR$:IFR$<>"P"ANDR$<>"M"THEN1658
  174. 1659 IFR$="P"THENRESTORE:GOTO1000
  175. 1660 PRINT"[158] [200]OPE YOU HAD FUN PLAYING JOTTO.":GOSUB792:GOSUB760
  176. 1661 PRINT" [210]ETURNING TO THE MAIN MENU"
  177. 1662 GOSUB793
  178. 1663 LOAD"MENU",8
  179. 1664 RUN
  180. 1665 END
  181. 2000 IFUW=0THENRETURN
  182. 2010 POKE 59467,16:POKE59466,15
  183. 2020 FOR I=255 TO 155STEP-1:POKE 59464,I:NEXTI
  184. 2030 POKE 59467,0:POKE 59464,0
  185. 2040 RETURN
  186. 2500 IFUW=0THENRETURN
  187. 2505 POKE 59467,16:POKE 59466,15:FORI=1TO28:POKE 59464,235:NEXTI
  188. 2510 POKE 59467,0:POKE59466,0:POKE59464,0
  189. 2520 RETURN
  190. 3000 REM PREVIOUS GUESSES
  191. 3010 IF G=0  THEN 3080
  192. 3020 A1=G-4:PRINT""
  193. 3030 IF A1<1 THEN A1=1
  194. 3040 FOR A2=A1 TO G
  195. 3050 PRINT"  [199]UESS #";A2;"WAS ";AN$(A2);"[146] WITH";AN(A2);"[202]OTS"
  196. 3060 NEXT A2:PRINT""
  197. 3070 RETURN
  198. 3080 PRINT""
  199. 3090 RETURN
  200. 3500 PRINT" [212]HE WORD WAS ";
  201. 3505 FORZZ=1TO5:ZY=ASC(MID$(N$,ZZ,1))-1
  202. 3510 IFZY=64THENZY=90
  203. 3515 PRINTCHR$(ZY);:NEXT:PRINT".[146]":GOSUB700:GOTO1650
  204.